home *** CD-ROM | disk | FTP | other *** search
/ Click - International Series 1 / Click Jigsaw Puzzles: Ken Duncan.iso / mac / puzzles / EileanDonan.dxr / 00261_position download dialog.ls < prev    next >
Encoding:
Text File  |  2002-11-11  |  460 b   |  14 lines
  1. global stageWide, stageTall, progressSprite
  2.  
  3. on exitFrame
  4.   offsetH = (stageWide / 2) - the locH of sprite progressSprite - 23
  5.   offsetV = (stageTall / 2) - the locV of sprite progressSprite - 31
  6.   aSprite = progressSprite
  7.   repeat while aSprite <= (progressSprite + 6)
  8.     set the puppet of sprite aSprite to 1
  9.     set the loc of sprite aSprite to the loc of sprite aSprite + point(offsetH, offsetV)
  10.     aSprite = 1 + aSprite
  11.   end repeat
  12.   updateStage()
  13. end
  14.